There are currently 71 colors included in this package the color names and their hex codes are below

##              shale        shale_ramp1        shale_ramp5              green 
##          "#3e4d54"          "#d6dde0"          "#20272b"          "#96a821" 
##        green_ramp1        green_ramp5               teal         teal_ramp1 
##          "#f6f0d5"          "#4b541d"          "#3fbfba"          "#d7f2f1" 
##         teal_ramp5             orange       orange_ramp1       orange_ramp5 
##          "#1f5f5e"          "#F29C20"          "#fcecd3"          "#F29C20" 
##               gray         gray_ramp1         gray_ramp5       bright green 
##          "#beb5af"          "#f1f0ef"          "#655852"          "#CEDB00" 
##          sea green    sea_green_ramp1    sea_green_ramp2               blue 
##          "#218675"          "#c6f2eb"          "#10433a"          "#008ba6" 
##         blue_ramp1         blue_ramp5               navy         navy_ramp1 
##          "#bff0fb"          "#008ba6"          "#40516f"          "#d5dbe6" 
##         navy_ramp5              black        black_ramp1        black_ramp5 
##          "#202837"          "#58585B"          "#dcddde"          "#2c2d2e" 
##         chartreuse   chartreuse_ramp1   chartreuse_ramp5               gold 
##          "#CDDC29"          "#f4f8d3"          "#687012"          "#ffee2a" 
##         gold_ramp1         gold_ramp5       burnt orange burnt_orange_ramp1 
##          "#fffcd5"          "#958a00"          "#f19d23"          "#fcecd3" 
## burnt_orange_ramp5                red          red_ramp1          red_ramp5 
##          "#825109"          "#ea425a"          "#fbd9de"          "#860f21" 
##             purple       light purple      medium purple        gray purple 
##          "#8400a8"          "#c29ed7"          "#7030a0"          "#704489" 
##        deep purple               pink           hot pink        medium pink 
##          "#4c0073"          "#e600a9"          "#ff00c5"          "#a80084" 
##        maroon pink          dark pink              earth        earth_ramp1 
##          "#8400a8"          "#73004c"          "#edece6"          "#f0f2da" 
##        earth_ramp2           horizon1           horizon2               cw_1 
##          "#d9d6ce"          "#c9d1d4"          "#bcd2d4"          "#3D4E56" 
##               cw_2               cw_3               cw_4               cw_5 
##          "#3DBFBA"          "#FFFFD3"          "#FFE607"          "#FFAA00" 
##              rpg_1              rpg_2              rpg_3          rainbow_1 
##          "#3DBFBA"          "#F9F963"          "#F29F24"          "#E0E0E0" 
##          rainbow_2          rainbow_3          rainbow_4          rainbow_5 
##          "#425270"          "#3DBFBA"          "#95A53A"          "#FFED28" 
##          rainbow_6          rainbow_7          rainbow_8 
##          "#FFAA00"          "#ED2D46"          "#8C50AA"

These are grouped into 20 color palettes, the colors included in each palette and their hex codes are below

## $logo
##     shale     green      teal    orange 
## "#3e4d54" "#96a821" "#3fbfba" "#F29C20" 
## 
## $additional
##         gray bright green    sea green         blue         navy        black 
##    "#beb5af"    "#CEDB00"    "#218675"    "#008ba6"    "#40516f"    "#58585B" 
## 
## $`main and additional`
##        shale        green         teal       orange         gray bright green 
##    "#3e4d54"    "#96a821"    "#3fbfba"    "#F29C20"    "#beb5af"    "#CEDB00" 
##    sea green         blue         navy        black 
##    "#218675"    "#008ba6"    "#40516f"    "#58585B" 
## 
## $shale_ramp
##        <NA> shale_ramp5 
##          NA   "#20272b" 
## 
## $green_ramp
## green_ramp1 green_ramp5 
##   "#f6f0d5"   "#4b541d" 
## 
## $teal_ramp
## teal_ramp1 teal_ramp5 
##  "#d7f2f1"  "#1f5f5e" 
## 
## $rpg_orange_ramp
## orange_ramp1 orange_ramp5 
##    "#fcecd3"    "#F29C20" 
## 
## $gray_ramp
## gray_ramp1 gray_ramp5 
##  "#f1f0ef"  "#655852" 
## 
## $sea_green_ramp
## sea_green_ramp1 sea_green_ramp2 
##       "#c6f2eb"       "#10433a" 
## 
## $rpg_blue_ramp
## blue_ramp1 blue_ramp5 
##  "#bff0fb"  "#008ba6" 
## 
## $navy_ramp
## navy_ramp1 navy_ramp5 
##  "#d5dbe6"  "#202837" 
## 
## $black_ramp
## black_ramp1 black_ramp5 
##   "#dcddde"   "#2c2d2e" 
## 
## $chartreuse_ramp
## chartreuse_ramp1 chartreuse_ramp5 
##        "#f4f8d3"        "#687012" 
## 
## $gold_ramp
## gold_ramp1 gold_ramp5 
##  "#fffcd5"  "#958a00" 
## 
## $burnt_orange_ramp
## burnt_orange_ramp1 burnt_orange_ramp5 
##          "#fcecd3"          "#825109" 
## 
## $red_ramp
## red_ramp1 red_ramp5 
## "#fbd9de" "#860f21" 
## 
## $earth_ramp
## earth_ramp1 earth_ramp2 
##   "#f0f2da"   "#d9d6ce" 
## 
## $rpg_colors
##     rpg_1     rpg_2     rpg_3 
## "#3DBFBA" "#F9F963" "#F29F24" 
## 
## $rpg_cold_warm
##      cw_1      cw_2      cw_3      cw_4      cw_5 
## "#3D4E56" "#3DBFBA" "#FFFFD3" "#FFE607" "#FFAA00" 
## 
## $rpg_rainbow
## rainbow_1 rainbow_2 rainbow_3 rainbow_4 rainbow_5 rainbow_6 rainbow_7 rainbow_8 
## "#E0E0E0" "#425270" "#3DBFBA" "#95A53A" "#FFED28" "#FFAA00" "#ED2D46" "#8C50AA"

These color palettes can be inserted into ggplot graphics, examples of each palettes in ggplot are below

Functions Included

This package includes four functions:

-rpg_cols() -rpg_color_pal() -scale_color_rpg() -scale_fill_rpg()

rpg_cols

takes a input string or group of strings and returns the hex code. The color must be one of the colors included in this package

Example:
rpg_cols("blue")
##      blue 
## "#008ba6"
rpg_cols("teal", "black")
##      teal     black 
## "#3fbfba" "#58585B"

rpg_color_pal

Converts an input string representing a color palette into a function that can be converted into a usable color palette.

rpg_color_pal("rpg_cold_warm")
## function (n) 
## {
##     x <- ramp(seq.int(0, 1, length.out = n))
##     if (ncol(x) == 4L) 
##         rgb(x[, 1L], x[, 2L], x[, 3L], x[, 4L], maxColorValue = 255)
##     else rgb(x[, 1L], x[, 2L], x[, 3L], maxColorValue = 255)
## }
## <bytecode: 0x0000000019689ee0>
## <environment: 0x00000000196871f8>

By adding a step count after the function it will return a usable palette

rpg_color_pal("rpg_cold_warm")(10)
##  [1] "#3D4E56" "#3D8082" "#3DB2AE" "#7DD4C2" "#D3F0CD" "#FFF9A5" "#FFEE4B"
##  [8] "#FFDF06" "#FFC403" "#FFAA00"

These palettes can be reversed as needed

rpg_color_pal("rpg_cold_warm", reverse = TRUE)(10)
##  [1] "#FFAA00" "#FFC403" "#FFDF06" "#FFEE4A" "#FFF9A5" "#D3F0CD" "#7DD4C2"
##  [8] "#3DB2AE" "#3D8082" "#3D4E56"

scale_color_rpg and scale_fill_rpg

These functions supply a fill or color to a ggplot call. See examples below.

Scale Color Examples

Discrete Palettes

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
  geom_point(size = 4) +
  scale_color_rpg(palette = "logo")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
  geom_point(size = 4) +
  scale_color_rpg(palette = "additional")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
  geom_point(size = 4) +
  scale_color_rpg(palette = "main and additional")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
  geom_point(size = 4) +
  scale_color_rpg(palette = "rpg_colors")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
  geom_point(size = 4) +
  scale_color_rpg(palette = "rpg_cold_warm")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
  geom_point(size = 4) +
  scale_color_rpg(palette = "rpg_rainbow")

Discrete Palettes

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "shale_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "green_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "red_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "earth_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "teal_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "rpg_orange_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "sea_green_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "rpg_blue_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "black_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "chartreuse_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "gold_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "burnt_orange_ramp")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "rpg_colors")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "rpg_cold_warm")

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4) +
  scale_color_rpg(discrete = FALSE, palette = "rpg_rainbow")

Scale Fill Examples

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "logo", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "additional", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "main and additional", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "shale_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "green_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "red_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "earth_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "teal_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "rpg_orange_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "gray_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "sea_green_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "rpg_blue_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "navy_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "black_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "chartreuse_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "gold_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "burnt_orange_ramp", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "rpg_colors", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "rpg_cold_warm", guide = "none")

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_rpg(palette = "rpg_rainbow", guide = "none")

Geographic Data with ggplot2

These palettes can also be used with ggplot2 to display geographic data with both continuous and discrete scales, uses the scale fill function.

Discrete Palettes

ggplot(NLD_muni) +
  geom_sf(aes(fill = province)) +
  scale_fill_rpg(palette = "logo")

ggplot(NLD_muni) +
  geom_sf(aes(fill = province)) +
  scale_fill_rpg(palette = "additional")

ggplot(NLD_muni) +
  geom_sf(aes(fill = province)) +
  scale_fill_rpg(palette = "main and additional")

ggplot(NLD_muni) +
  geom_sf(aes(fill = province)) +
  scale_fill_rpg(palette = "rpg_colors")

ggplot(NLD_muni) +
  geom_sf(aes(fill = province)) +
  scale_fill_rpg(palette = "rpg_cold_warm")

ggplot(NLD_muni) +
  geom_sf(aes(fill = province)) +
  scale_fill_rpg(palette = "rpg_rainbow")

Continous Palettes

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "logo", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "additional", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "main and additional", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "shale_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "green_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "red_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "earth_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "teal_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "rpg_orange_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "gray_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "sea_green_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "rpg_blue_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "navy_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "black_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "chartreuse_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "gold_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "burnt_orange_ramp", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "rpg_colors", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "rpg_cold_warm", discrete = FALSE)

ggplot(NLD_muni) +
  geom_sf(aes(fill = population)) +
  scale_fill_rpg(palette = "rpg_rainbow", discrete = FALSE)

Geographic Data with tmap

tmap uses a differing syntax from ggplot however by using the rpg_color_pal function, with a step count indicated, and saving the output to an object these palettes can be used in tmap.

Discrete Palettes

MyPal <- rpg_color_pal("logo")(10)
tm_shape(NLD_muni) +
  tm_polygons("province", palette = MyPal) 

MyPal <- rpg_color_pal("additional")(10)
tm_shape(NLD_muni) +
  tm_polygons("province", palette = MyPal) 

MyPal <- rpg_color_pal("main and additional")(10)
tm_shape(NLD_muni) +
  tm_polygons("province", palette = MyPal) 

MyPal <- rpg_color_pal("rpg_colors")(10)
tm_shape(NLD_muni) +
  tm_polygons("province", palette = MyPal)

MyPal <- rpg_color_pal("rpg_cold_warm")(10)
tm_shape(NLD_muni) +
  tm_polygons("province", palette = MyPal)

MyPal <- rpg_color_pal("rpg_rainbow")(10)
tm_shape(NLD_muni) +
  tm_polygons("province", palette = MyPal) 

Continous Palettes

MyPal <- rpg_color_pal("logo")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal)

MyPal <- rpg_color_pal("additional")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal)

MyPal <- rpg_color_pal("main and additional")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal)

MyPal <- rpg_color_pal("shale_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("green_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal)

MyPal <- rpg_color_pal("red_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("earth_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("teal_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal)

MyPal <- rpg_color_pal("rpg_orange_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("gray_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal)

MyPal <- rpg_color_pal("sea_green_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("rpg_blue_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("navy_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("black_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("chartreuse_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("gold_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("burnt_orange_ramp")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("rpg_colors")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal)

MyPal <- rpg_color_pal("rpg_cold_warm")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal) 

MyPal <- rpg_color_pal("rpg_rainbow")(10)
tm_shape(NLD_muni) +
  tm_polygons("population", palette = MyPal)